#! 
# by jzhang @ 11:01 2004-02-12  mailto:v-jzhang
#

use warnings;
use strict;

my %a;

$a{$_} = $_ * 4 foreach(1..10);
print "$_:$a{$_}\n" foreach (sort {$a{$a} <=> $a{$b}} keys %a);

foreach(keys %a)
{
    if($_ % 2 ==0 )
    {
	delete $a{$_};
    }
}
print "---------------------------------\n";
print "$_:$a{$_}\n" foreach (sort {$a{$a} <=> $a{$b}} keys %a);
